home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 09-23.C < prev    next >
Text File  |  1992-01-31  |  1KB  |  56 lines
  1. #include <fastgraf.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4.  
  5. void main(void);
  6.  
  7. void main()
  8. {
  9.    int row;
  10.    int old_mode;
  11.    char string[17];
  12.  
  13.    old_mode = fg_getmode();
  14.  
  15.    if (fg_testmode(3,2))
  16.       fg_setmode(3);
  17.    else if (fg_testmode(7,2))
  18.       fg_setmode(7);
  19.    else {
  20.       printf("This program requires\n");
  21.       printf("an 80-column display.\n");
  22.       exit(1);
  23.       }
  24.  
  25.    fg_cursor(0);
  26.    fg_setattr(9,7,0);
  27.  
  28.    for (row = 0; row < 25; row++) {
  29.       sprintf(string," This is row %2d ",row);
  30.       fg_locate(row,0);
  31.       fg_text(string,16);
  32.       fg_text(string,16);
  33.       fg_text(string,16);
  34.       fg_text(string,16);
  35.       fg_text(string,16);
  36.       }
  37.    fg_waitkey();
  38.  
  39.    fg_allocate(1);
  40.    fg_sethpage(1);
  41.    fg_save(32,47,11,13);
  42.    fg_setcolor(1);
  43.    fg_rect(32,47,11,13);
  44.    fg_setattr(15,1,0);
  45.    fg_locate(12,33);
  46.    fg_text("Press any key.",14);
  47.    fg_waitkey();
  48.  
  49.    fg_restore(32,47,11,13);
  50.    fg_waitkey();
  51.  
  52.    fg_freepage(1);
  53.    fg_setmode(old_mode);
  54.    fg_reset();
  55. }
  56.